home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / prowres / shared.dxr / 01523_SSmouseCastLineBW.ls < prev    next >
Encoding:
Text File  |  1995-08-07  |  568 b   |  20 lines
  1. on mouseDown
  2.   if (the mouseCast = -1) or (the mouseLine = -1) then
  3.   else
  4.     if the castType of cast the mouseCast = #text then
  5.       mptxandcset(the mouseCast, the mouseLine)
  6.     else
  7.     end if
  8.     updateStage()
  9.   end if
  10. end
  11.  
  12. on mptxandcset castno, lineno
  13.   puppetSound("Single Click")
  14.   puppetTransition(23)
  15.   hilite line the mouseLine of field the mouseCast
  16.   mspriteset(3, 1, 1, 0, (castno * 12) + lineno + 16, 536, 128)
  17.   mspriteset(4, 1, 7, 36, (castno * 12) + lineno - 14, 435, 225)
  18.   mspriteset(19, 1, 7, 36, (castno * 60) + (lineno * 5) - 23, 240, 50)
  19. end
  20.